home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-11
/
aeclipb.zip
/
MENUDEMO.PRG
< prev
Wrap
Text File
|
1993-01-04
|
2KB
|
62 lines
* Program: Menudemo.prg - demo use of bldmen function
* Author: Milton F. Shaw Jr.
* Copyright: Auto Exec Inc, (c) Copyright 1989, ALL RIGHTS RESERVED
* Date: October 27, 1989
* Purpose: Allow quick menu building by calling a function.
* Notes: For Distribution on Electronic Bulletin Boards as long as
* the following files are included in the archived file:
* Buildmen.obj
* Menudemo.prg
* READIT.COM
* Auto Exec Inc. operates and maintains Auto Exec BBS, this bulletin board
* operates 24 hours a day, 7 days a week. Storage capacity is 1 GIGABYTE,
* presently there are 3 nodes. Nodes 1 & 2 use HST 9600 baud modems and
* Node 3 uses a V.32c MicroCom Qx/V with 38,400 buad capability. All nodes
* will support 300-19200 baud, 8-N-1.
*
* Auto Exec BBS main features are Clipper, dBASE, FoxBase, Novell, Education
* Games, Adult and MacIntosh files. Only registration required for access
* and ability to download 450K bytes per day.
set color to "gr+/b,r/w,b"
* Set up array to build menu from
declare menuarray[20]
* Define each menu item
menuarray[1]="1. Large Clipper File Section"
menuarray[2]="2. Large dBASE/FoxBase File Section"
menuarray[3]="3. Educational Software Section"
menuarray[4]="4. Pascal, 'C' & other Programming"
menuarray[5]="5. Clipper, dBASE, Novell Conferences"
menuarray[6]="6. Exit"
* Define Menu Title
menutitle="Auto Exec BBS Features"
* Define Menu Color
menuclr="w+/r,r/w,b"
* Define Menu Type - "W" - window, "C" - Clear Screen
menutype="W"
* Define the menu return variable
returnwhat=0
* Define Shading (.T. or .F.)
shade=.T.
* Define the Top Offset - Moves the window up (positive number), down (neg #)
offset=4
returnwhat=bldmenu(menuarray,6,menutitle,menuclr,returnwhat,menutype,shade,offset)
* Print results
? returnwhat